home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / CommandesPrint.asc < prev    next >
Text File  |  1980-03-12  |  1KB  |  50 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Amos Rastport  
  13. '  -Wb Print Mode    
  14. '  -Wb Print Ink     
  15. '  -Wb Print Locate    
  16. '  -Wb Print     
  17. '  -Wb X Print   
  18. '  -Wb Y Print   
  19. '  -Wb X Locate    
  20. '  -Wb Y Locate    
  21. '  -Wb Print Ymove 2   
  22. '  -Wb Print Xmove 2 
  23. '
  24. Screen Open 0,640,256,16,$8000
  25. Curs Off : Flash Off : Cls 0
  26. A=Amos Rastport
  27. '
  28. Ink 1
  29. For X=0 To 639 Step 8
  30.    Draw X,0 To X,255
  31. Next X
  32. For Y=0 To 255 Step 8
  33.    Draw 0,Y To 639,Y
  34. Next Y
  35. '
  36. Wb Print Mode 0
  37. Wb Print Ink 2,0
  38. Wb Print Locate 0,0
  39. Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
  40. Wb Print Locate 5,2
  41. Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
  42. '
  43. For T=1 To 5
  44.    Wb Print Ymove 2
  45.    Wb Print Xmove 2
  46.    Wb Print "X:"+Str$(Wb X Print)+"  Y:"+Str$(Wb Y Print)+"  LX:"+Str$(Wb X Locate)+"  LY:"+Str$(Wb Y Locate) To A
  47. Next T
  48. '
  49. Wait Key 
  50.